Aminet 6/Aminet 6 - June 1995.iso/Aminet/util/rexx/ole1v10a.lha/OLE_System/Install_OLE

Text File | 1995-02-10 | 7.5 KB | 451 lines

;
; Install-OLE
;
; The OLE system installation script.
;
; HISTORY:
; 1.08    copy GetPubName
;
; $(C): (1994, Rocco Coluccelli, Bologna)
; $VER: Install-OLE 1.13 (10.Feb.1995)
;


;
;    english
;
    (set þBAD_KICK
        "\nYou must have Kickstart 2.04 or higher installed to use the OLE System.\n"
    )

    (set þWELCOME
        (cat
            "\n\nThe OLE System\n\n\n"
            "This script installs the version 1.10a\n"
            "of the OLE System on your Amiga.\n\n\n\n"
            "The OLE System © 1994 Rocco Coluccelli\n"
            "All rights reserved"
        )
    )

    (set þASK_OLE_DIR
        (cat
            "In which disk or drawer should a drawer \"OLE_System\" "
            "be created where all usefull files will be copied?"
        )
    )

    (set þASK_OLE_DIR_HELP
        (cat
            "Here you specify, where you want to install all OLE System "
            "support files. A drawer \"OLE_System\" will "
            "be created, so you select \"SYS:\" to install OLE System "
            "in a drawer \"SYS:OLE_System\".\n\n"
        )
    )

    (set þASK_MOD_DIR
        (cat
            "In which disk or drawer should a drawer \"OLE\" "
            "be created where all modules files will be copied?"
        )
    )

    (set þASK_MOD_DIR_HELP
        (cat
            "Here you specify, where you want to install all OLE System "
            "modules. A drawer \"OLE\" will "
            "be created, so you select \"REXX:\" to install OLE System "
            "in a drawer \"REXX:OLE\".\n\n"
        )
    )

    (set þASK_FW
        "\nInstall OLE modules for Final Writer?\n"
    )

    (set þASK_FW_DIR
        "\nDestination for Final Writer scripts\n"
    )

    (set þASK_FW_DIR_HELP
        (cat
            "Select the path for copying the startup-scripts for Final Writer.\n"
            "Read the OLE documentation for more informations.\n\n"
        )
    )

    (set þASK_PCALC
        "\nDestination for Professional Calc scripts\n"
    )

    (set þASK_PCALC_HELP
        (cat
            "Select the path where you want copy the scripts for ProCalc.\n"
            "Read the OLE documentation for more informations.\n\n"
        )
    )

    (set þCOPY_LIBS
        "\nCopy the ARexx libraries in LIBS:\n"
    )

    (set þCOPY_LIBS_HELP
        (cat
            "The OLE System use some ARexx libraries and you have to copy "
            "them into your LIBS: drawer.\n\n"
        )
    )

    (set þWORKING1
        "\nWell, let's install...\n"
    )

    (set þSTARTUP
        "\nAdd a few lines to User-Startup\n"
    )

    (set þSTARTUP_HELP
        (cat
            "The OLE System use the \"OLE:\" assignement and "
            "need the \"PIPE:\" device mounted for any script.\n"
            "This part of the installation add the necessary "
            "commands to your \"User-Startup\" file.\n\n"
        )
    )

;
;    italiano
;
(if (= @language "italiano")
(
    (set þBAD_KICK
        (cat
            "\nOLE System richiede il Kickstart 2.04 "
            "o superiore per funzionare.\n"
        )
    )

    (set þWELCOME
        (cat
            "\n\nThe OLE System\n\n\n"
            "Questo script installa la versione 1.10a\n"
            "di OLE System sul tuo Amiga.\n\n\n\n"
            "The OLE System © 1994 Rocco Coluccelli\n"
            "Tutti i diritti sono riservati"
        )
    )

    (set þASK_OLE_DIR
        (cat
            "In quale disco o cassetto vorresti che fosse creata la directory \"OLE_System\" "
            "che ospiterà tutti i file necessari a OLE System?"
        )
    )

    (set þASK_OLE_DIR_HELP
        (cat
            "Qui devi specificare dove vuoi che vengano copiati tutti "
            "i files di supporto necessari a costruire OLE System. "
            "Un nuovo cassetto \"OLE_System\" sarà creato nel posto da te scelto per "
            "accogliere tutti i files necessari.\n\n"
        )
    )

    (set þASK_MOD_DIR
        (cat
            "In quale disco o cassetto vuoi che venga creata la directory \"OLE\" "
            "che accogliera` tutti i moduli?"
        )
    )

    (set þASK_MOD_DIR_HELP
        (cat
            "Qui devi scegliere dove installare i moduli di OLE System. "
            "Un cassetto \"OLE\" verrà creato così che, scegliendo"
            " \"REXX:\" tutti i moduli verranno copiati nel cassetto "
            " \"REXX:OLE\".\n\n"
        )
    )

    (set þASK_FW
        "\nInstalli i moduli OLE per Final Writer?\n"
    )

    (set þASK_FW_DIR
        "\nDestinazione per gli script di Final Writer\n"
    )

    (set þASK_FW_DIR_HELP
        (cat
            "Scegli dove vuoi copiare gli startup-script per Final Writer.\n"
            "Leggi la documentazione che accompagna OLE System "
            "per maggiori informazioni.\n\n"
        )
    )

    (set þASK_PCALC
        "\nDestinazione per gli script di Professional Calc\n"
    )

    (set þASK_PCALC_HELP
        (cat
            "Scegli dove vuoi che vengano copiati gli script per ProCalc.\n"
            "Leggi la documentazione che accompagna OLE System "
            "per maggiori informazioni.\n\n"
        )
    )

    (set þCOPY_LIBS
        "\nDevo copiare alcune librerie ARexx LIBS:\n"
    )

    (set þCOPY_LIBS_HELP
        (cat
            "OLE System fa uso di alcune librerie ARexx che devono necessariamente"
            "essere copiate nel cassetto LIBS:\n"
            "Nel caso in cui siano già presenti, verranno aggiornate.\n\n"
        )
    )

    (set þWORKING1
        "\nProcedo con la installazione...\n"
    )

    (set þSTARTUP
        "\nDevo aggiungere alcune linee all User-Startup\n"
    )

    (set þSTARTUP_HELP
        (cat
            "OLE System utilizza l'assegnamento \"OLE:\" per riferirsi "
            "a tutti i suoi moduli. Alcuni script usano PIPE: per lo "
            "scambio dei dati\n."
            "Ora verranno aggiunti i comandi necessari alla \"User-Startup\".\n\n"
        )
    )
))



;
; make sure we are running under a 2.04 ROM or higher
;
(if (< (/ (getversion) 65536) 37)
    (abort þBAD_KICK)
)

(complete 0)
(message þWELCOME)
(welcome)


;
;    ask for destination drawers or partitions for OLE files etc.
;
(set OLE_DIR
    (tackon
        (askdir
            (prompt þASK_OLE_DIR)
            (help
                þASK_OLE_DIR_HELP
                @askdir-help
            )
            (default "Work:")
        )
        "OLE_System"
    )
)

(set @default-dest OLE_DIR)

(set OLE_MOD
    (tackon
        (askdir
            (prompt þASK_MOD_DIR)
            (help
                þASK_MOD_DIR_HELP
                @askdir-help
            )
            (default "REXX:")
        )
        "OLE"
    )
)

;
;    Final Writer modules
;
(set FW
    (askchoice
        (prompt þASK_FW)
        (help "")
        (choices "Skip" "FinalWriter Release 2" "FinalWriter Release 3")
    )
)

(if (> FW 0)
    (set FW_dest
        (askdir
            (prompt þASK_FW_DIR)
            (default "REXX:")
            (help þASK_FW_DIR_HELP)
        )
    )
)

;
;    ProCalc modules
;
;(set PCALC_dest
;    (askdir
;        (prompt þASK_PCALC)
;        (default "REXX:")
;        (help þASK_PCALC_HELP)
;    )
;)

;
;    inform the user...
;
(working þWORKING1)

;
;    install libraries
;
(foreach "libs" "#?.library"
    (copylib
        (prompt þCOPY_LIBS)
        (help þCOPY_LIBS_HELP)
        (source (tackon "libs" @each-name))
        (dest "LIBS:")
    )
)
(run "Avail >NIL: FLUSH")
(complete 10)

;
;    OLE server and support files
;
(copyfiles
    (source "server")
    (dest "REXX:")
    (all)
)

;
;    misc, catalogs, help, standard modules...
;
(if (not (exists OLE_MOD))
    (makedir OLE_MOD)
)

(copyfiles
    (source "ole")
    (dest OLE_MOD)
    (all)
)

(makeassign "OLE" OLE_MOD)

;
;    the OLE System drawer
;
(if (not (exists OLE_DIR))
    (
        (makedir OLE_DIR)
    )
)

(copyfiles
    (source "drawer-info")
    (dest (cat OLE_DIR "//"))
    (newname "OLE_System.info")
)

(copyfiles
    (source "rexx")
    (dest (cat OLE_DIR "/rexx"))
    (all)
)

(copyfiles
    (source "8svx")
    (dest (cat OLE_DIR "/8svx"))
    (all)
)

(copyfiles
    (source "iff")
    (dest (cat OLE_DIR "/iff"))
    (all)
)

(copyfiles
    (source "help")
    (dest (cat OLE_DIR "/help"))
    (all)
)

(copyfiles
    (source "")
    (dest OLE_DIR)
    (choices "OLE.guide" "Presentation")
    (infos)
)

(copyfiles
    (source "Switch")
    (dest OLE_DIR)
)

(copyfiles
    (source "Switch-info")
    (dest OLE_DIR)
    (newname "Switch.info")
)

(complete 30)

;
;    install FinalWriter modules
;
(if (> FW 0)
    ((copyfiles
        (source "modules/fw_st")
        (dest FW_dest)
        (all)
    )
    (copyfiles
        (source "modules/fw3")
        (dest OLE_MOD)
        (all)
    )
    (if (= FW 1)
        (copyfiles
            (source "modules/fw2")
            (dest OLE_MOD)
            (all)
        )
    ))
)

(complete 90)

;
;    update the user-startup
;
(startup "OLE System"
    (prompt þSTARTUP)
    (help þSTARTUP_HELP)
    (command
        "Assign OLE: \"" OLE_MOD "\"\n"
        "Assign >NIL: PIPE: EXISTS\n"
        "If WARN\n"
        "    Mount PIPE:\n"
        "EndIf\n"
    )
)
(complete 100)
(exit)